home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00307_Show Sprite Class.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  819 b   |  40 lines
  1. property showSpriteList, turnedOn
  2.  
  3. on new me, parameterList
  4.   set showSpriteList to getaProp(parameterList, #showSpriteList)
  5.   set turnedOn to 0
  6.   repeat with sNum in showSpriteList
  7.     set the visible of sprite sNum to 0
  8.     set mNum to the memberNum of sprite sNum
  9.     if mNum > 0 then
  10.       preloadMember(mNum)
  11.     end if
  12.   end repeat
  13.   return me
  14. end
  15.  
  16. on TurnOn me
  17.   repeat with sNum in showSpriteList
  18.     set the visible of sprite sNum to 1
  19.   end repeat
  20.   updateStage()
  21.   set turnedOn to 1
  22. end
  23.  
  24. on TurnOff me
  25.   if turnedOn then
  26.     repeat with sNum in showSpriteList
  27.       set the visible of sprite sNum to 0
  28.     end repeat
  29.     set turnedOn to 0
  30.   end if
  31. end
  32.  
  33. on dispose me
  34.   repeat with sNum in showSpriteList
  35.     set the visible of sprite sNum to 1
  36.   end repeat
  37.   set showSpriteList to []
  38.   set turnedOn to 0
  39. end
  40.